home *** CD-ROM | disk | FTP | other *** search
- object Growth: TGrowth
- Left = 181
- Top = 112
- BorderStyle = bsDialog
- Caption = 'Growth Information'
- ClientHeight = 410
- ClientWidth = 507
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'System'
- Font.Style = []
- Position = poScreenCenter
- OnActivate = FormActivate
- PixelsPerInch = 96
- TextHeight = 16
- object TabbedNotebook1: TTabbedNotebook
- Left = 0
- Top = 0
- Width = 507
- Height = 410
- Align = alClient
- TabsPerRow = 4
- TabFont.Color = clBlue
- TabFont.Height = -12
- TabFont.Name = 'MS Sans Serif'
- TabFont.Style = []
- TabOrder = 1
- object TTabPage
- Left = 4
- Top = 24
- Caption = 'Growth Log'
- object Label1: TLabel
- Left = 16
- Top = 16
- Width = 35
- Height = 19
- Caption = 'Date'
- Font.Color = clBlue
- Font.Height = -16
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label2: TLabel
- Left = 112
- Top = 16
- Width = 50
- Height = 19
- Caption = 'Height'
- Font.Color = clBlue
- Font.Height = -16
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label3: TLabel
- Left = 208
- Top = 16
- Width = 53
- Height = 19
- Caption = 'Weight'
- Font.Color = clBlue
- Font.Height = -16
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label4: TLabel
- Left = 8
- Top = 344
- Width = 67
- Height = 24
- Caption = 'Growth'
- Font.Color = clBlue
- Font.Height = -21
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- end
- object Image3: TImage
- Left = 312
- Top = 48
- Width = 169
- Height = 249
- Picture.Data = {<image000.bmp>}
- end
- object GrowthLog: TMemo
- Left = 8
- Top = 40
- Width = 297
- Height = 289
- Font.Color = clBlack
- Font.Height = -16
- Font.Name = 'Arial'
- Font.Style = []
- Lines.Strings = (
- 'Empty')
- ParentFont = False
- TabOrder = 0
- end
- object BitBtn1: TBitBtn
- Left = 360
- Top = 336
- Width = 25
- Height = 31
- Caption = ' '
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- TabOrder = 1
- OnClick = BitBtn1Click
- Kind = bkHelp
- Margin = 2
- Spacing = -1
- end
- end
- object TTabPage
- Left = 4
- Top = 24
- Caption = 'Growth Entries'
- object Image4: TImage
- Left = 336
- Top = 168
- Width = 89
- Height = 137
- Picture.Data = {<image001.bmp>}
- end
- object Label5: TLabel
- Left = 8
- Top = 344
- Width = 67
- Height = 24
- Caption = 'Growth'
- Font.Color = clBlue
- Font.Height = -21
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- end
- object GroupBox1: TGroupBox
- Left = 8
- Top = 8
- Width = 473
- Height = 129
- TabOrder = 1
- object Label8: TLabel
- Left = 408
- Top = 91
- Width = 49
- Height = 14
- Alignment = taCenter
- Caption = 'Record'
- Font.Color = clRed
- Font.Height = -11
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Bevel2: TBevel
- Left = 400
- Top = 24
- Width = 65
- Height = 81
- end
- object Label9: TLabel
- Left = 408
- Top = 27
- Width = 49
- Height = 14
- Alignment = taCenter
- Caption = 'Delete'
- Font.Color = clRed
- Font.Height = -11
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label10: TLabel
- Left = 240
- Top = 8
- Width = 93
- Height = 19
- Caption = 'Date Search'
- Font.Color = clBlue
- Font.Height = -16
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label11: TLabel
- Left = 28
- Top = 24
- Width = 41
- Height = 19
- Alignment = taRightJustify
- Caption = 'Date:'
- Font.Color = clBlue
- Font.Height = -16
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label12: TLabel
- Left = 10
- Top = 88
- Width = 59
- Height = 19
- Alignment = taRightJustify
- Caption = 'Weight:'
- Font.Color = clBlue
- Font.Height = -16
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label13: TLabel
- Left = 13
- Top = 56
- Width = 56
- Height = 19
- Alignment = taRightJustify
- Caption = 'Height:'
- Font.Color = clBlue
- Font.Height = -16
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Height: TLabel
- Left = 92
- Top = 56
- Width = 9
- Height = 19
- Alignment = taRightJustify
- Caption = '0'
- Font.Color = clBlue
- Font.Height = -16
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object WtLbs: TLabel
- Left = 92
- Top = 88
- Width = 9
- Height = 19
- Alignment = taRightJustify
- Caption = '0'
- Font.Color = clBlue
- Font.Height = -16
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label16: TLabel
- Left = 116
- Top = 56
- Width = 41
- Height = 16
- Caption = 'inches'
- Font.Color = clBlue
- Font.Height = -13
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label17: TLabel
- Left = 116
- Top = 88
- Width = 22
- Height = 16
- Caption = 'lbs.'
- Font.Color = clBlue
- Font.Height = -13
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label18: TLabel
- Left = 188
- Top = 88
- Width = 19
- Height = 16
- Caption = 'oz.'
- Font.Color = clBlue
- Font.Height = -13
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object WtOz: TLabel
- Left = 164
- Top = 88
- Width = 9
- Height = 19
- Alignment = taRightJustify
- Caption = '0'
- Font.Color = clBlue
- Font.Height = -16
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object SpeedButton1: TSpeedButton
- Left = 192
- Top = 24
- Width = 25
- Height = 25
- Hint = 'Previous Entry'
- Glyph.Data = {
- 78010000424D7801000000000000760000002800000020000000100000000100
- 04000000000000000000120B0000120B00000000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000333
- 3333333333777F33333333333309033333333333337F7F333333333333090333
- 33333333337F7F33333333333309033333333333337F7F333333333333090333
- 33333333337F7F33333333333309033333333333FF7F7FFFF333333000090000
- 3333333777737777F333333099999990333333373F3333373333333309999903
- 333333337F33337F33333333099999033333333373F333733333333330999033
- 3333333337F337F3333333333099903333333333373F37333333333333090333
- 33333333337F7F33333333333309033333333333337373333333333333303333
- 333333333337F3333333333333303333333333333337333333330000}
- NumGlyphs = 2
- ParentShowHint = False
- ShowHint = True
- OnClick = SpeedButton1Click
- end
- object SpeedButton3: TSpeedButton
- Left = 192
- Top = 48
- Width = 25
- Height = 25
- Hint = 'Next Entry'
- Glyph.Data = {
- 78010000424D7801000000000000760000002800000020000000100000000100
- 04000000000000000000120B0000120B00000000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333303333
- 333333333337F33333333333333033333333333333373F333333333333090333
- 33333333337F7F33333333333309033333333333337373F33333333330999033
- 3333333337F337F33333333330999033333333333733373F3333333309999903
- 333333337F33337F33333333099999033333333373333373F333333099999990
- 33333337FFFF3FF7F33333300009000033333337777F77773333333333090333
- 33333333337F7F33333333333309033333333333337F7F333333333333090333
- 33333333337F7F33333333333309033333333333337F7F333333333333090333
- 33333333337F7F333333333333000333333333333377733333330000}
- NumGlyphs = 2
- ParentShowHint = False
- ShowHint = True
- OnClick = SpeedButton3Click
- end
- object DelButton: TSpeedButton
- Left = 408
- Top = 40
- Width = 49
- Height = 49
- Glyph.Data = {
- 26020000424D260200000000000076000000280000001C0000001B0000000100
- 040000000000B0010000CE0E0000D80E00000000000000000000000000000000
- 8000008000000080800080000000800080008080000080808000C0C0C0000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00666666666666
- 66666666676666660000666666666666666666667B101B160000666666666666
- 66666667B101B1B600006666666666666666667B101B1B060000666666666666
- 666667B101B1B0B6000066666666666666667B101B1B0B060000666666666666
- 66670101B1B0B00600006666666666666672001B1B0B00060000666666666666
- 67022201B0B0000600006666666666667B0022000B0000660000666666666667
- B1B10220B0000666000066666666667B1B1B0020000066660000666666666701
- B1B1B0200006666600006666666672001B1B1000006666660000666666670222
- 01B1B000066666660000666666780022001B00006666666600006666678D8D02
- 20B0000666666666000066667008D800200000666666666600006667FDF08D80
- 20000666666666660000667FDFD0D8D00000666666666666000067FDFDF00D80
- 0006666666666666000067DFDFDF08000066666666666666000060FDFDFD0000
- 06666666666666660000600FDFDF000066666666666666660000600DFDF00006
- 6666666666666666000060000000006666666666666666660000660000000666
- 66666666666666660000}
- OnClick = DelButtonClick
- end
- object EntryDate: TLabel
- Left = 88
- Top = 24
- Width = 64
- Height = 19
- Caption = '__-__-__'
- Font.Color = clBlue
- Font.Height = -16
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object DateSearch: TComboBox
- Left = 240
- Top = 32
- Width = 145
- Height = 26
- TabStop = False
- Font.Color = clBlack
- Font.Height = -16
- Font.Name = 'Arial'
- Font.Style = []
- ItemHeight = 18
- ParentFont = False
- TabOrder = 0
- OnClick = DateSearchClick
- end
- end
- object Group99: TGroupBox
- Left = 40
- Top = 144
- Width = 241
- Height = 193
- Caption = 'New Entry'
- Font.Color = clYellow
- Font.Height = -16
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- ParentFont = False
- TabOrder = 0
- TabStop = True
- object Label21: TLabel
- Left = 36
- Top = 32
- Width = 41
- Height = 19
- Alignment = taRightJustify
- Caption = 'Date:'
- Font.Color = clBlue
- Font.Height = -16
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label22: TLabel
- Left = 21
- Top = 64
- Width = 56
- Height = 19
- Alignment = taRightJustify
- Caption = 'Height:'
- Font.Color = clBlue
- Font.Height = -16
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label23: TLabel
- Left = 18
- Top = 96
- Width = 59
- Height = 19
- Alignment = taRightJustify
- Caption = 'Weight:'
- Font.Color = clBlue
- Font.Height = -16
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label24: TLabel
- Left = 132
- Top = 72
- Width = 41
- Height = 16
- Caption = 'inches'
- Font.Color = clBlue
- Font.Height = -13
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label25: TLabel
- Left = 132
- Top = 104
- Width = 22
- Height = 16
- Caption = 'lbs.'
- Font.Color = clBlue
- Font.Height = -13
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label26: TLabel
- Left = 204
- Top = 104
- Width = 19
- Height = 16
- Caption = 'oz.'
- Font.Color = clBlue
- Font.Height = -13
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object NewDate: TMaskEdit
- Left = 95
- Top = 32
- Width = 90
- Height = 26
- EditMask = '!99-99-00;1;_'
- Font.Color = clBlue
- Font.Height = -16
- Font.Name = 'Arial'
- Font.Style = []
- MaxLength = 8
- ParentFont = False
- TabOrder = 0
- Text = ' - - '
- end
- object NewHeight: TEdit
- Left = 96
- Top = 64
- Width = 33
- Height = 26
- Font.Color = clBlue
- Font.Height = -16
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- TabOrder = 1
- end
- object NewWtLbs: TEdit
- Left = 96
- Top = 96
- Width = 33
- Height = 26
- Font.Color = clBlue
- Font.Height = -16
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- TabOrder = 2
- end
- object NewWtOz: TEdit
- Left = 168
- Top = 96
- Width = 33
- Height = 26
- Font.Color = clBlue
- Font.Height = -16
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- TabOrder = 3
- end
- object BitBtn5: TBitBtn
- Left = 32
- Top = 136
- Width = 177
- Height = 41
- Caption = 'Add Entry'
- Font.Color = clBlue
- Font.Height = -21
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- TabOrder = 4
- OnClick = BitBtn5Click
- end
- end
- object BitBtn3: TBitBtn
- Left = 360
- Top = 336
- Width = 25
- Height = 31
- Caption = ' '
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- TabOrder = 2
- OnClick = BitBtn3Click
- Kind = bkHelp
- Margin = 2
- Spacing = -1
- end
- end
- end
- object BitBtn2: TBitBtn
- Left = 400
- Top = 360
- Width = 93
- Height = 31
- Caption = 'Close'
- Default = True
- Font.Color = clGreen
- Font.Height = -19
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- ModalResult = 1
- ParentFont = False
- TabOrder = 0
- OnClick = BitBtn2Click
- Glyph.Data = {
- F6000000424DF600000000000000760000002800000010000000100000000100
- 04000000000080000000CE0E0000D80E00000000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
- 5555555555555555555555555205555555555555222055555555555522205555
- 5555555222220555555555222222055555555722052220555555720555522055
- 5555555555522205555555555555220555555555555552205555555555555572
- 0555555555555557205555555555555552205555555555555555}
- Margin = 8
- Spacing = -1
- end
- end
-